home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / biz / dbase / AlbIn_MUI_105.lha / Install_AlbIn_MUI < prev    next >
Text File  |  1996-02-19  |  45KB  |  1,360 lines
  1. ; ALBIN_MUI 1.05 INSTALLATION SCRIPT
  2. ; Written 1995 by Freddy Ariës for Sirius Design
  3. ; Copyright © 1995 Sirius Design
  4. ; $VER: Install_AlbIn_MUI 1.05 (19-Feb-96)
  5. ; Initial English, Dutch and German translations by Freddy Ariës
  6. ; German proof-reading by Matthias Andree
  7. ; swedish version by David von Plenker-Tind
  8.  
  9. ; TO DO:
  10. ;  - add check if there's enough space to install the selected files
  11. ;  - add processing of catalog files (for version 2.0 of the program)
  12. ;  - at the moment, the program will abort if there is an AlbIn_MUI
  13. ;    program where it tries to create the AlbIn_MUI directory. Maybe
  14. ;    I should instead ask the user if the (older version of the)
  15. ;    program is to be deleted ?
  16. ;  - add language strings for other languages
  17.  
  18. ; ****************************
  19. ; *** Some global settings ***
  20. ; ****************************
  21.  
  22. ; *** IMPORTANT: set this flag to match the distribution ***
  23.  
  24. ; (set Main_0x0 0)
  25. ; uncomment this line for distributions that only include the standard
  26. ; 68000 version of the program, and no extra 0x0 version (like the public
  27. ; distribution, or registered users who only have an 68000 processor).
  28.  
  29. (set Main_0x0 "AlbIn_MUI_030")
  30. ; uncomment this line (and change it) for registered users with a faster
  31. ; 0x0 processor, who receive an extra, optimized version of the program.
  32. ; This should be the name of the main program as it is available in the
  33. ; distribution, so please change the '_030' part to the user's setup
  34. ; (eg. 020, 030, 040 or 060).
  35.  
  36. ; *** Temporary directory, used to decompress archives ***
  37. (set Instpath "T:")
  38.  
  39. ; *********************************
  40. ; *** English (default) strings ***
  41. ; *********************************
  42.  
  43. (set #introduction (cat "\n"
  44.  
  45.     "      You are about to install AlbIn_MUI,        \n"
  46.     "          The Ultimate Music Database.           \n\n"
  47.     "AlbIn_MUI is ©1995 by Niklas Dahlman, for        \n"
  48.     "Sirius Design. All Rights Reserved.              \n\n"
  49.     "AlbIn_MUI is SHAREWARE and is NOT to be sold     \n"
  50.     "(although a small charge may be made for copying)\n"
  51.     "AlbIn_MUI is freely distributable, but none of   \n"
  52.     "the files in the distribution may be left out, or\n"
  53.     "modified in any form.                            \n"
  54. ))
  55.  
  56. (set #badkick "\nSorry, AlbIn_MUI requires OS v2.04 or higher.\n")
  57.  
  58. (set #bad_nothing "\nNothing to install!\n")
  59.  
  60. (set #all    "Complete installation")
  61. (set #custom "Custom installation")
  62.  
  63. (set #in_msg "\nSelect an installation option:\n")
  64. (set #in_help (cat "\n"
  65.     " Choosing `Complete installation' allows you to     \n"
  66.     " install all the AlbIn_MUI files on your hard disk. \n\n"
  67.     " If you do not want ALL the files installed, or if  \n"
  68.     " you want to install to disk, you can choose the    \n"
  69.     " `Custom installation', where you can specify       \n"
  70.     " exactly which files you want to install.           \n"
  71.     " If you already have an older version of AlbIn_MUI  \n"
  72.     " installed on your system, the old files will be    \n"
  73.     " overwritten (in both of these options).            \n"
  74. ))
  75.  
  76. (set #in_dest (cat "\n"
  77.     " Select the directory in which you would like  \n"
  78.     " the AlbIn_MUI drawer to be created.           \n"
  79. ))
  80.  
  81. (set #bad_path (cat "\n"
  82.     " Cannot create AlbIn_MUI directory:    \n"
  83.     " please delete AlbIn_MUI program first!\n"
  84. ))
  85.  
  86. (set #dest_help (cat "\n"
  87.     " A drawer named AlbIn_MUI will be created here \n"
  88.     " (if not already present) to store the program \n"
  89.     " and its files.                                \n"
  90.     " If you are updating from an earlier version,  \n"
  91.     " select the directory in which the AlbIn_MUI   \n"
  92.     " directory is located, and not the AlbIn_MUI   \n"
  93.     " directory itself!                             \n"
  94. ))
  95.  
  96. (set #opt_unknown "Unknown option... installation aborted.\n")
  97.  
  98. (set #cust1 (cat "AlbIn_MUI Installation\n\n"
  99.     "Please select which files you wish to install"
  100. ))
  101. (set #custmain "AlbIn_MUI main")
  102. (set #custicon "Default icons")
  103. (set #custdoc  "Document files")
  104. (set #custdb   "Example databases")
  105.  
  106. (set #cust_hlp (cat "\n"
  107.     " You can choose which files you wish to install:\n\n"
  108.     " AlbIn_MUI main : Main program & on-line help   \n"
  109.     " Default icons  : Icons directory, used by the  \n"
  110.     "                  program when saving a database\n"
  111.     "                  to create an icon for it.     \n"
  112.     " Document files : additional documentation      \n"
  113.     " Databases      : some example databases from   \n"
  114.     "                  other users.                  \n"
  115. ))
  116.  
  117. (set #ask_icons (cat "\n"
  118.     " Which icons do you want to use for the program,\n"
  119.     " the text files and the database files?         \n"
  120. ))
  121.  
  122. (set #normal_icons "Standard icons")
  123. (set #mwb_icons    "MagicWB icons")
  124.  
  125. (set #icon_hlp (cat "\n"
  126.     " Here you can choose which icons you want to have\n"
  127.     " installed with the main program, the example    \n"
  128.     " databases and the documentation files.          \n"
  129.     " Choose the MagicWB icons only if your Workbench \n"
  130.     " screen has at least 8 colours, and if it uses   \n"
  131.     " MagicWB's colour palette - like when you have   \n"
  132.     " Martin Huttenloher's MagicWB package installed. \n"
  133.     " Otherwise, choose the standard 4-colour icons.  \n"
  134. ))
  135.  
  136. (set #ask_pgm "Which program files do you want to install?\n")
  137.  
  138. (if (= Main_0x0 0)
  139.   (
  140.     (set #help_0x0 "\n")
  141.     (set #help_end "\n")
  142.   )
  143.   (
  144.     (set #help_0x0 (cat "\n"
  145.         " AlbIn_MUI_0x0   : main program, 680x0-version  \n"
  146.         "                  (optimized for your processor)\n"
  147.     ))
  148.     (set #help_end (cat "\n"
  149.       " Note that the optimized version of the program \n"
  150.       " depends on the information about your processor\n"
  151.       " as you filled it in on your registration form. \n"
  152.     ))
  153.   )
  154. )
  155.  
  156. (set #help_pgm (cat #help_0x0
  157.     " AlbIn_MUI       : main program, standard 68000 \n"
  158.     "                   version                      \n"
  159.     " AlbIn_MUI.guide : guide file for on-line help  \n"
  160.     "                   (AmigaGuide required).       \n"
  161.     #help_end
  162. ))
  163.  
  164. (set #arc_icon "Decompressing icons...")
  165. (set #arc_main "Decompressing main program files...")
  166. (set #arc_docs "Decompressing document files...")
  167. (set #arc_db1  "Decompressing example databases...")
  168. (set #arc_db2  "Decompressing lyrics, cover pictures\nand export files...")
  169.  
  170. (set #ask_doc "Which documentation files do you want to install?")
  171.  
  172. (set #help_doc (cat "\n"
  173.     " This collection of files provides additional  \n"
  174.     " documentation on the program. Included are a  \n"
  175.     " history file, a to-do list, a dvi-version of  \n"
  176.     " of the program's documentation, and files that\n"
  177.     " provide copyright information about the used  \n"
  178.     " packages (eg. MUI).                           \n"
  179. ))
  180.  
  181. (set #ask_db "Which example databases do you want to install?")
  182.  
  183. (set #help_db (cat "\n"
  184.     " AlbIn_MUI comes with a series of example databases\n"
  185.     " from other users. You may want to install these to\n"
  186.     " your system to look at them, and maybe to import  \n"
  187.     " some of the albums from these databases into your \n"
  188.     " own database; that can save you a lot of typing.  \n"
  189.     " If you have enough space, just install them all.  \n"
  190. ))
  191.  
  192. (set #ask_lyric "Which lyrics files do you want to install?")
  193.  
  194. (set #help_lyric (cat "\n"
  195.     " Some of the example databases - like the one from\n"
  196.     " Niklas and Daniel - make use if external lyrics  \n"
  197.     " files. If you want to be able to look at these   \n"
  198.     " lyrics, you will have to install them.           \n"
  199. ))
  200.  
  201. (set #ask_cover "Which cover pictures do you want to install?")
  202.  
  203. (set #help_cover (cat "\n"
  204.     " Some of the example databases - like the one from\n"
  205.     " Niklas - use external cover picture files. If you\n"
  206.     " want to be able to look at these files, you will \n"
  207.     " have to install them as well.                    \n"
  208. ))
  209.  
  210. (set #ask_export "Which export files do you want to install?")
  211.  
  212. (set #help_export (cat "\n"
  213.     " If you want, you can install an example exported\n"
  214.     " file. However, you do not really need this file,\n"
  215.     " and if you do, you can create it by calling the \n"
  216.     " export function from within the main program.   \n"
  217.     " Note that you need MultiView or AmigaGuide to   \n"
  218.     " display the export file.                        \n"
  219. ))
  220.  
  221. (set #ask_locl "What languages do you want to have installed ?\n")
  222.  
  223. (set #help_locl (cat "\n"
  224.     " This allows you to install the catalog files that\n"
  225.     " are required to make the AlbIn_MUI main program  \n"
  226.     " use the language that you selected in the Locale \n"
  227.     " preferences program (OS2.1 or higher required).  \n"
  228. ))
  229.  
  230. (set #complete "Installation complete.\n")
  231.  
  232. ; *******************************************
  233. ; *** Dutch strings (nederlandse teksten) ***
  234. ; *******************************************
  235.  
  236. (if (= @language "nederlands")
  237.   (
  238.     (set #introduction (cat "\n"
  239.     "  Je staat op het punt AlbIn_MUI te installeren, \n"
  240.     "           De Ultieme Muziek Databank.           \n\n"
  241.     "AlbIn_MUI is ©1995 Niklas Dahlman, voor          \n"
  242.     "Sirius Design. Alle Rechten Gereserveerd.        \n\n"
  243.     "AlbIn_MUI is SHAREWARE en mag niet verkocht worden\n"
  244.     "(al mag een kleine bijdrage voor de copiëerkosten\n"
  245.     "worden gevraagd).                                \n"
  246.     "AlbIn_MUI is vrij distribueerbaar, maar geen van \n"
  247.     "de bestanden in de distributie mag eruit worden  \n"
  248.     "gelaten, of op enigerlij wijze worden veranderd. \n"
  249.     ))
  250.  
  251.     (set #badkick "\nSorry, AlbIn_MUI benodigt OS v2.04 of hoger.\n")
  252.     (set #bad_nothing "\nNiets te installeren!\n")
  253.  
  254.     (set #all    "Volledige installatie")
  255.     (set #custom "Gedeeltelijke installatie")
  256.  
  257.     (set #in_msg "\nKies een installatie optie:\n")
  258.     (set #in_help (cat "\n"
  259.     " Met `Volledige installatie' kunt u alle AlbIn_MUI \n"
  260.     " bestanden op uw harde schijf laten zetten.        \n\n"
  261.     " Als u niet ALLE bestanden wilt installeren, of als\n"
  262.     " u naar diskette wilt installeren, kunt u de       \n"
  263.     " `Gedeeltelijke installatie' kiezen, waar u heel   \n"
  264.     " nauwkeurig aan kunt geven welke bestanden u wilt  \n"
  265.         " installeren.                                      \n"
  266.     " Als u al een oudere versie van AlbIn_MUI op uw    \n"
  267.     " systeem geïnstalleerd heeft, zullen de aanwezige  \n"
  268.     " bestanden worden overschreven (bij beide opties). \n"
  269.     ))
  270.     (set #in_dest (cat "\n"
  271.     " Kies de directory waarin u wilt dat de AlbIn_MUI\n"
  272.     " lade geplaatst wordt.                           \n"
  273.     ))
  274.  
  275.     (set #bad_path (cat "\n"
  276.     " Kan de AlbIn_MUI lade niet maken:            \n"
  277.     " verwijder aub. eerst het AlbIn_MUI programma!\n"
  278.     ))
  279.  
  280.     (set #dest_help (cat "\n"
  281.     " Een lade met de naam AlbIn_MUI zal aangemaakt \n"
  282.     " worden (mits niet al aanwezig), waarin het    \n"
  283.     " programma en de bijbehorende bestanden zullen \n"
  284.     " worden geïnstalleerd.                         \n"
  285.     " Als u al een oudere versie geïnstalleerd heeft,\n"
  286.     " kies dan de lade waarin de AlbIn_MUI lade zich\n"
  287.     " bevindt, en niet de AlbIn_MUI lade zelf!      \n"
  288.     ))
  289.  
  290.     (set #opt_unknown "Onbekende optie... installatie afgebroken.\n")
  291.  
  292.     (set #cust1 (cat "AlbIn_MUI Installatie\n\n"
  293.     "Kies aub. welke bestanden u wilt installeren:"
  294.     ))
  295.     (set #custmain "AlbIn_MUI programma")
  296.     (set #custicon "Standaard ikonen")
  297.     (set #custdoc  "Documentatie")
  298.     (set #custdb   "Voorbeeld databanken")
  299.  
  300.     (set #cust_hlp (cat "\n"
  301.     " U kunt kiezen welke bestanden u wilt installeren:\n\n"
  302.     " AlbIn_MUI programma : Hoofdprogramma en on-line \n"
  303.         "                       hulp bestand              \n"
  304.     " Standaard ikonen    : Ikonen die gebruikt worden\n"
  305.     "                       bij het bewaren van een   \n"
  306.     "                       databank om een ikoon voor\n"
  307.     "                       dat bestand aan te maken. \n"
  308.     " Documentatie        : extra tekst bestanden     \n"
  309.     " Voorbeeld databanken: enkele voorbeeld databank \n"
  310.     "                       bestanden van andere      \n"
  311.     "                       gebruikers.               "
  312.     ))
  313.  
  314.     (set #ask_icons (cat "\n"
  315.     " Welke ikonen wilt u gebruiken voor het programma,\n"
  316.     " de tekst bestanden en de databank bestanden?     \n"
  317.     ))
  318.  
  319.     (set #normal_icons "Normale ikonen")
  320.     (set #mwb_icons    "MagicWB ikonen")
  321.  
  322.     (set #icon_hlp (cat "\n"
  323.     " Hier kunt u kiezen welke ikonen u wilt gebruiken\n"
  324.     " voor het hoofdprogramma, de voorbeeld databanken\n"
  325.     " en de documentatie bestanden.                   \n"
  326.     " Kies de MagicWB ikonen alleen als uw Workbench  \n"
  327.     " scherm ten minste 8 kleuren heeft, en als uw    \n"
  328.     " Workbench MagicWB's kleurenpalet gebruikt, zoals\n"
  329.     " wanneer u Martin Huttenloher's MagicWB pakket   \n"
  330.     " geïnstalleerd heeft.                            \n"
  331.     " Kies in de overige gevallen de normale 4-kleuren\n"
  332.     " ikonen.                                         \n"
  333.     ))
  334.  
  335.     (set #ask_pgm "Welke programma bestanden wilt u installeren?\n")
  336.  
  337.     (if (= Main_0x0 0)
  338.       (
  339.         (set #help_0x0 "\n")
  340.         (set #help_end "\n")
  341.       )
  342.       (
  343.         (set #help_0x0 (cat "\n"
  344.             " AlbIn_MUI_0x0   : hoofdprogramma, 680x0-versie \n"
  345.             "                  (geoptimaliseerd voor uw      \n"
  346.         "                   processor).                  \n"
  347.         ))
  348.         (set #help_end (cat "\n"
  349.           " Merk op dat de geoptimaliseerde versie van het \n"
  350.           " programma gebaseerd is op de informatie over uw\n"
  351.           " processor zoals u die heeft ingevuld op uw     \n"
  352.       " registratie formulier.                         "
  353.         ))
  354.       )
  355.     )
  356.  
  357.     (set #help_pgm (cat #help_0x0
  358.     " AlbIn_MUI       : hoofdprogramma, standaard    \n"
  359.     "                   68000-versie                 \n"
  360.     " AlbIn_MUI.guide : Amigaguide bestand voor on-line\n"
  361.     "                   hulp (benodigt AmigaGuide).  \n"
  362.     #help_end
  363.     ))
  364.  
  365.     (set #arc_icon "Ikonen uitpakken...")
  366.     (set #arc_main "Hoofdprogramma uitpakken...")
  367.     (set #arc_docs "Documentatie uitpakken...")
  368.     (set #arc_db1  "Voorbeeld databanken uitpakken...")
  369.     (set #arc_db2  "Songteksten, hoes plaatjes en\ngeëxporteerde bestanden uitpakken...")
  370.  
  371.     (set #ask_doc "Welke documentatie bestanden wilt u installeren?")
  372.  
  373.     (set #help_doc (cat "\n"
  374.     " Deze reeks bestanden levert extra informatie  \n"
  375.     " over het programma. Bijgesloten vindt u de    \n"
  376.     " programma-geschiedenis, een `Te-Doen' lijst,  \n"
  377.     " de DVI-versie van de programma documentatie,  \n"
  378.     " en bestanden die copyright informatie bieden  \n"
  379.     " over de gebruikte pakketten (zoals MUI).      \n"
  380.     ))
  381.  
  382.     (set #ask_db "Welke voorbeeld databanken wilt u installeren?")
  383.  
  384.     (set #help_db (cat "\n"
  385.     " Bij het AlbIn_MUI programma wordt een reeks      \n"
  386.     " voorbeeld databanken meegeleverd van andere      \n"
  387.         " gebruikers. Wellicht wilt u deze bekijken of     \n"
  388.     " gebruiken om delen eruit in uw eigen databank te \n"
  389.     " importeren; dat kan u een hoop typewerk besparen.\n"
  390.     " Installeer ze, als u genoeg vrije ruimte heeft.  \n"
  391.     ))
  392.  
  393.     (set #ask_lyric "Welke songteksten wilt u installeren?")
  394.  
  395.     (set #help_lyric (cat "\n"
  396.     " Sommige voorbeeld databanken - zoals die van    \n"
  397.     " Niklas en Daniel - gebruiken externe songtekst  \n"
  398.     " bestanden. Als u deze wilt kunnen bekijken, zult\n"
  399.     " u deze bestanden moeten installeren.            \n"
  400.     ))
  401.  
  402.     (set #ask_cover "Welke hoes plaatjes wilt u installeren?")
  403.  
  404.     (set #help_cover (cat "\n"
  405.     " Sommige voorbeeld databanken - zoals die van  \n"
  406.     " Niklas - gebruiken externe plaatjes van album-\n"
  407.     " hoezen. Als u deze wilt kunnen bekijken, zult \n"
  408.     " u deze bestanden moeten installeren.          \n"
  409.     ))
  410.  
  411.     (set #ask_export "Welke export bestanden wilt u installeren?")
  412.  
  413.     (set #help_export (cat "\n"
  414.     " Als u wilt, kunt u een voorbeeld installeren van\n"
  415.     " een geëxporteerd AmigaGuide bestand. U heeft dit\n"
  416.     " bestand niet persé nodig, en u kunt het zelf ook\n"
  417.     " aanmaken met de Export functie in het hoofd-    \n"
  418.     " programma. Maar als u toch ruimte over heeft... \n"
  419.     " Merk op dat MultiView of AmigaGuide benodigd is \n"
  420.     " om het geëxporteerde bestand weer te geven.     \n"
  421.     ))
  422.  
  423.     (set #ask_locl "\n Welke talen wilt u installeren?\n")
  424.     (set #help_locl (cat "\n"
  425.     " Hiermee kunt u de catalog bestanden installeren   \n"
  426.     " die benodigd worden om het AlbIn_MUI hoofdprogramma\n"
  427.     " in die taal te laten werken die u in het Locale   \n"
  428.     " instellingen programma heeft ingesteld (OS2.1 of  \n"
  429.     " hoger vereist!).                                  \n"
  430.     ))
  431.  
  432.     (set #complete "Installatie compleet.\n")
  433.  
  434.   )
  435. )
  436.  
  437. ; *********************************************
  438. ; *** German strings (deutsche Texte)       ***
  439. ; *********************************************
  440. ; *** Bemerkung: mein Deutsch ist nicht     ***
  441. ; *** perfekt, und die Übersetzung wird     ***
  442. ; *** sicherlich viele Fehler enthalten.    ***
  443. ; *** Bitte schickt Verbesserungsvorschläge ***
  444. ; *** direkt an Sirius Design. -- Freddy    ***
  445. ; *********************************************
  446. ; *** Korrekturen von Matthias Andree       ***
  447. ; ***                                       ***
  448. ; *********************************************
  449.  
  450. (if (= @language "deutsch")
  451.   (
  452.     (set #introduction (cat "\n"
  453.     "Sie werden jetzt AlbIn_MUI installieren,         \n"
  454.     "       die definitiv beste Musikdatenbank.       \n\n"
  455.     "AlbIn_MUI ist ©1995 Niklas Dahlman, für          \n"
  456.     "Sirius Design. Alle Rechte vorbehalten.          \n\n"
  457.     "AlbIn_MUI ist SHAREWARE und darf nicht verkauft  \n"
  458.     "werden (es darf aber ein kleiner Beitrag für die \n"
  459.     "Kopier-Unkosten verlangt werden).                \n"
  460.     "AlbIn_MUI ist frei kopierbar, aber keine der     \n"
  461.     "Dateien aus der Distribution darf ausgelassen    \n"
  462.     "werden, oder auf irgendeine Art verändert werden.\n"
  463.     ))
  464.  
  465.     (set #badkick "\nEs tut mir leid, aber AlbIn_MUI benötigt OS 2.04 oder höher.\n")
  466.     (set #bad_nothing "\nHabe nichts zu installieren!\n")
  467.  
  468.     (set #all    "Komplett installieren")
  469.     (set #custom "Teilweise installieren")
  470.  
  471.     (set #in_msg "\nWähle eine Installation:\n")
  472.     (set #in_help (cat "\n"
  473.     " Mit `komplett installieren' können Sie das ganze  \n"
  474.     " AlbIn_MUI-Paket auf Ihre Festplatte kopieren      \n"
  475.     " lassen.                                           \n\n"
  476.     " Wenn Sie NICHT ALLE Dateien installieren wollen,  \n"
  477.     " oder wenn Sie auf Diskette installieren möchten,  \n"
  478.     " sollten Sie `teilweise installieren' wählen, damit\n"
  479.     " Sie genau angeben können, welche Dateien instal-  \n"
  480.         " liert werden sollen.                              \n"
  481.     " Wenn sich schon eine ältere Version von AlbIn_MUI \n"
  482.     " auf Ihrem System befindet, werden die alten       \n"
  483.     " Dateien überschrieben werden (in beiden Fällen).  "
  484.     ))
  485.     (set #in_dest (cat "\n"
  486.     " Wählen Sie bitte das Verzeichnis, in das         \n"
  487.     " das AlbIn_MUI installiert werden soll.           \n"
  488.     ))
  489.  
  490.     (set #bad_path (cat "\n"
  491.     " Kann das AlbIn_MUI Verzeichnis nicht erstellen, \n"
  492.     " bitte löschen Sie zuerst das alte AlbIn_MUI     \n"
  493.     " Programm!\n"
  494.     ))
  495.  
  496.     (set #dest_help (cat "\n"
  497.     " Ein Verzeichnis mit dem Namen `AlbIn_MUI' wird \n"
  498.     " erstellt (falls noch nicht geschehen), in das  \n"
  499.     " das Programm und die dazugehörenden Dateien    \n"
  500.     " installiert werden.                            \n"
  501.     " Wenn Sie schon eine ältere Version installiert \n"
  502.     " haben, wählen Sie bitte das Verzeichnis, in dem\n"
  503.     " sich das AlbIn_MUI Verzeichnis befindet, und   \n"
  504.     " NICHT das AlbIn_MUI Verzeichnis selber.        \n"
  505.     ))
  506.  
  507.     (set #opt_unknown "Unbekannte Option... Installation abgebrochen.\n")
  508.  
  509.     (set #cust1 (cat "AlbIn_MUI Installation\n\n"
  510.     "Wählen Sie bitte, welche Dateien ich installieren soll:"
  511.     ))
  512.     (set #custmain "AlbIn_MUI Programm")
  513.     (set #custicon "Standard Piktogramme")
  514.     (set #custdoc  "Dokumentation")
  515.     (set #custdb   "Beispiel-Datenbanken")
  516.  
  517.     (set #cust_hlp (cat "\n"
  518.     " Sie können wählen, welche Dateien Sie installieren möchten:\n\n"
  519.     " AlbIn_MUI Programm  : Hauptprogramm und On-Line-\n"
  520.         "                       Hilfsdatei.              \n"
  521.     " Standard Piktogramme: diese dienen beim sichern\n"
  522.     "                       einer Datenbank dazu, ein\n"
  523.     "                       Piktogramm anzufertigen. \n"
  524.     " Dokumentation       : zusätzliche Textdateien  \n"
  525.     " Beispiel-Datenbanken: einige Beispiel-Daten-   \n"
  526.     "                       banken von anderen       \n"
  527.     "                       Benutzern.                "
  528.     ))
  529.  
  530.     (set #ask_icons (cat "\n"
  531.     " Welche Icons sollen für das Programm, die Texte\n"
  532.     " und die Datenbanken installiert werden?        \n"
  533.     ))
  534.  
  535.     (set #normal_icons "Normale Icons")
  536.     (set #mwb_icons    "MagicWB Icons")
  537.  
  538.     (set #icon_hlp (cat "\n"
  539.         " Hier können Sie die Piktogramme wählen, die Sie  \n"
  540.         " für das Hauptprogramm, die Beispiele und die     \n"
  541.         " Dokumentation benutzen möchten.                  \n"
  542.         " Wählen Sie die MagicWB-Icons bitte nur, wenn Ihr \n"
  543.         " Workbenchbildschirm mindestens 8 Farben hat und  \n"
  544.         " Ihre Workbench die MagicWB-Palette benutzt, wie  \n"
  545.         " sie in Martin Huttenlohers MagicWB-Paket zu      \n"
  546.         " finden ist.                                      \n"
  547.         " In allen anderen Fällen wählen Sie bitte die     \n"
  548.         " vierfarbigen Piktogramme.                        \n"
  549.  
  550.     ))
  551.  
  552.     (set #ask_pgm "Welche Programmtypen möchten Sie installieren?\n")
  553.  
  554.     (if (= Main_0x0 0)
  555.       (
  556.         (set #help_0x0 "\n")
  557.         (set #help_end "\n")
  558.       )
  559.       (
  560.         (set #help_0x0 (cat "\n"
  561.             " AlbIn_MUI_0x0   : Hauptprogramm, 680x0-Version \n"
  562.             "                   (optimiert für Ihren Prozessor).\n"
  563.         ))
  564.         (set #help_end (cat "\n"
  565.           " Bemerkung: Welche Version Sie erhalten, hängt \n"
  566.           " davon ab, welchen Prozessortype Sie beim      \n"
  567.           " Registrieren angegeben haben.                 \n"
  568.         ))
  569.       )
  570.     )
  571.  
  572.     (set #help_pgm (cat #help_0x0
  573.     " AlbIn_MUI      : Hauptprogramm, Standard-    \n"
  574.     "                  68000-Version               \n"
  575.     " AlbIn_MUI.guide: Amigaguide Datei für On-Line-\n"
  576.     "                  Hilfe (benötigt AmigaGuide).\n"
  577.     #help_end
  578.     ))
  579.  
  580.     (set #arc_icon "Piktogramme entpacken...")
  581.     (set #arc_main "Hauptprogramm entpacken...")
  582.     (set #arc_docs "Dokumentation entpacken...")
  583.     (set #arc_db1  "Beispiels-Datenbanken entpacken...")
  584.     (set #arc_db2  "Songtexte, Plattencover und\nexportierte Daten entpacken...")
  585.  
  586.     (set #ask_doc "Welche Dokumentationsdateien möchten Sie installieren?")
  587.  
  588.     (set #help_doc (cat "\n"
  589.     " Diese Dateisammlung bietet zusätzliche Doku-  \n"
  590.     " mentation zum Programm. Sie enthält die Ge-   \n"
  591.     " schichte des Programms, die Planungen, eine   \n"
  592.     " DVI-Version der Anleitung, und Copyright-Hin- \n"
  593.     " weise zu den verwendeten Paketen (z. B. MUI). \n"
  594.     ))
  595.  
  596.     (set #ask_db "Welche Beispiels-Datenbanken möchten Sie installieren?")
  597.  
  598.     (set #help_db (cat "\n"
  599.         " AlbIn_MUI wird mit einer Reihe von Beispieldaten-\n"
  600.         " banken anderer Benutzer geliefert. Sie können Sie\n"
  601.         " installieren, um sie sich anzusehen, und viel-   \n"
  602.         " leicht einige Alben aus diesen Dateien importie- \n"
  603.         " ren, um sich eine Menge Schreibarbeit zu sparen. \n"
  604.         " Sollten Sie genügend Platz haben, installieren   \n"
  605.         " Sie alle.                                        \n"
  606.     ))
  607.  
  608.     (set #ask_lyric "Welche Songtexte möchten Sie installieren?")
  609.  
  610.     (set #help_lyric (cat "\n"
  611.     " Manche Beispieldatenbanken - wie die von       \n"
  612.     " Niklas und Daniel - benutzen externe Songtext- \n"
  613.     " Dateien. Wenn Sie sich diese ansehen können    \n"
  614.     " möchten, müssen Sie sie installieren.          \n"
  615.     ))
  616.  
  617.     (set #ask_cover "Welche Plattencover möchten Sie installieren?")
  618.  
  619.     (set #help_cover (cat "\n"
  620.     " Manche Beispielsdatenbanken - wie die von      \n"
  621.     " Niklas - benutzen externe Plattencoverdateien. \n"
  622.     " Wenn Sie sich diese ansehen können möchten,    \n"
  623.     " müssen Sie sie installieren.                   \n"
  624.     ))
  625.  
  626.     (set #ask_export "Welche exportierten Daten möchten Sie installieren?")
  627.  
  628.     (set #help_export (cat "\n"
  629.     " Wenn Sie möchten, können Sie ein Beispiel von   \n"
  630.     " einer exportierten AmigaGuide-Datei instal-     \n"
  631.     " lieren. Sie brauchen diese Datei nicht unbe-    \n"
  632.     " dingt und wenn, dann können Sie sie selber auch \n"
  633.     " anfertigen mit der Export Funktion im Haupt-    \n"
  634.     " programm. Aber wenn genügend Platz frei ist...  \n"
  635.     " Bemerkung: MultiView oder AmigaGuide wird       \n"
  636.     " benötigt, um die exportierten Daten anzuzeigen. \n"
  637.     ))
  638.  
  639.     (set #ask_locl "\n Welche Sprachen möchten Sie installieren?\n")
  640.     (set #help_locl (cat "\n"
  641.     " Hier können Sie die Catalog Dateien installieren,\n"
  642.     " die benötigt werden, um das AlbIn_MUI Programm in\n"
  643.     " der Sprache arbeiten zu lassen, die Sie im Locale\n"
  644.     " Prefs Programm eingestellt haben (OS2.1 oder     \n"
  645.     " höher ist dazu erforderlich!).                   \n"
  646.     ))
  647.  
  648.     (set #complete "Installation fertig.\n")
  649.  
  650.   )
  651. )
  652.  
  653. ; *********************************
  654. ; *** Swedish strings (Svenska) ***
  655. ; *********************************
  656. ; *** by David von Plenker-Tind
  657.  
  658. (if (= @language "svenska")
  659.     (
  660.  
  661.  
  662. (set #introduction (cat "\n"
  663.  
  664.     "     Du är på väg att installera AlbIn_MUI,       \n"
  665.     "           Den ultimata musikdatabasen.           \n\n"
  666.     "AlbIn_MUI är © 1995 Niklas Dahlman, för           \n"
  667.     "Sirius Design. All rättigheter förbehållna.       \n\n"
  668.     "AlbIn_MUI är SHAREWARE och får INTE säljas        \n"
  669.     "(en liten avgift får dock tas ut vid kopiering av \n"
  670.     "den oregistrerade versionen med tillhörande filer)\n"
  671.     "AlbIn_MUI är fritt distribuerbart, men inga av    \n"
  672.     "filerna i distributionspaketet får utelämnas,     \n"
  673.     "eller modifieras i någon form.                    \n"
  674. ))
  675.  
  676. (set #badkick "\nTyvärr, AlbIn_MUI kräver OS v2.04 eller bättre.\n")
  677. (set #bad_nothing "\nIngenting att installera!\n")
  678.  
  679. (set #all    "Komplett installation")
  680. (set #custom "Skräddarsydd installation")
  681.  
  682. (set #in_msg "\nVälj hur Du vill installera AlbIn_MUI:\n")
  683. (set #in_help (cat "\n"
  684.     " Genom att välja 'Komplett installation' kommer     \n"
  685.     " samtliga filer tillhörande AlbIn_MUI att kopieras  \n"
  686.     " till Din hårddisk.                                 \n\n"
  687.     " Om Du inte vill att ALLA filer installeras kan du  \n"
  688.     " välja 'Skräddarsydd installation', där Du kan välja\n"
  689.     " precis vilka filer som ska installeras.            \n"
  690.     " Om Du redan har en äldre version av AlbIn_MUI      \n"
  691.     " installerad på Din dator, kommer de gamla filer    \n"
  692.     " skrivas över (det gäller bägge alternativen).      \n"
  693. ))
  694.  
  695. (set #in_dest (cat "\n"
  696.     " Välj bibliotek i vilket Du vill att AlbIn_MUI- \n"
  697.     " biblioteket skall skapas.                      \n"
  698. ))
  699.  
  700. (set #bad_path (cat "\n"
  701.     " Kan inte skapa AlbIn_MUI-bibliotek:             \n"
  702.     " var snäll och radera AlbIn_MUI programmet först!\n"
  703. ))
  704.  
  705. (set #dest_help (cat "\n"
  706.     " Ett bibliotek med namnet 'AlbIn_MUI' kommer att \n"
  707.     " skapas här (om det inte redan finns) för att    \n"
  708.     " lagra programmet och dess tillhörande filer.    \n"
  709.     " Om Du uppdaterar från en tidigare version,      \n"
  710.     " välj det bibliotek där AlbIn_MUI-biblioteket    \n"
  711.     " finns, och inte själva AlbIn_MUI-biblioteket.   \n"
  712. ))
  713.  
  714. (set #opt_unknown "Okänt val... installation avbruten.\n")
  715.  
  716. (set #cust1 (cat "AlbIn_MUI Installation\n\n"
  717.     "Välj vilka filer som ska installeras:"
  718. ))
  719. (set #custmain "AlbIn_MUI programfiler")
  720. (set #custicon "Standardikoner")
  721. (set #custdoc  "Dokumentationsfiler")
  722. (set #custdb   "Exempel-databaser")
  723.  
  724. (set #cust_hlp (cat "\n"
  725.     " Du kan välja vilka filer som Du vill installera: \n\n"
  726.     " AlbIn_MUI programfiler: Huvudprogram & on-line-  \n"
  727.     "                         hjälp.                   \n"
  728.     " Standardikoner: Ikonbibliotek, används när Du ska\n"
  729.     "                 spara en databas och en ikon ska \n"
  730.     "                 sparas för databasen.            \n"
  731.     " Dokumentationsfiler: Ytterligare dokumentation,  \n"
  732.     "                      förutom on-line-hjälp.      \n"
  733.     " Exempel-databaser: Några exempel på databaser    \n"
  734.     "                    från andra användare.         \n"
  735. ))
  736.  
  737. (set #ask_icons (cat "\n"
  738.     " Vilka ikoner vill Du använda till programmet,\n"
  739.     " textfilerna och databas-filerna?             \n"
  740. ))
  741.  
  742. (set #normal_icons "Standard ikoner (4 färger)")
  743. (set #mwb_icons    "MagicWB ikoner (8+ färger)")
  744.  
  745. (set #icon_hlp (cat "\n"
  746.     " Här kan Du välja mellan vilka ikoner Du vill ha   \n"
  747.     " installerade med huvudprogrammet, exempel-data-   \n"
  748.     " baserna och dokumentationen.                      \n"
  749.     " Välj MagicWB-ikonerna endast om Din Workbench-    \n"
  750.     " skärm har minst 8 färger, och om Du använder      \n"
  751.     " MagicWBs färgpalette - dvs om Du har Martin       \n"
  752.     " Huttenlohers 'MagicWB' installerat. I annat fall  \n"
  753.     " installera de vanliga standard 4-färgers ikonerna.\n"
  754. ))
  755.  
  756. (set #ask_pgm "Vilka programfiler vill du installera?\n")
  757.  
  758. (if (= Main_0x0 0)
  759.   (
  760.     (set #help_0x0 "\n")
  761.     (set #help_end "\n")
  762.   )
  763.   (
  764.     (set #help_0x0 (cat "\n"
  765.         " AlbIn_MUI_0x0: huvudprogram, 680x0-version  \n"
  766.         "                (optimerat för Din processor)\n"
  767.     ))
  768.     (set #help_end (cat "\n"
  769.       " Tänk på att den optimerade versionen av          \n"
  770.       " programmet beror på de uppgifter om Din processor\n"
  771.       " som Du  uppgav i registreringsformuläret.        \n"
  772.     ))
  773.   )
  774. )
  775.  
  776. (set #help_pgm (cat #help_0x0
  777.     " AlbIn_MUI: Huvudprogram, standard 68000 version\n"
  778.     " AlbIn_MUI.guide: .guide-fil för on-line-hjälp  \n"
  779.     "                  (AmigaGuide/Multiview krävs). \n"
  780.     #help_end
  781. ))
  782.  
  783. (set #arc_icon "Packar upp ikoner...")
  784. (set #arc_main "Packar upp huvudprogramfiler...")
  785. (set #arc_docs "Packar upp dokumentationsfiler...")
  786. (set #arc_db1  "Packar upp exempel-databaser...")
  787. (set #arc_db2  "Packar upp sångtexter, omslags-\nbilder och exportfiler...")
  788.  
  789. (set #ask_doc "Vilka dokumentationsfiler vill Du installera?")
  790.  
  791. (set #help_doc (cat "\n"
  792.     " Den här samlingen filer innehåller ytterligare\n"
  793.     " dokumentation om programmet. Inkluderat finns \n"
  794.     " en historie-fil, en att-göra-lista, en dvi-   \n"
  795.     " version av programmets dokumentation, och     \n"
  796.     " filer som innehåller copyright-information om \n"
  797.     " de använda programpaketen (dvs MUI)           \n"
  798. ))
  799.  
  800. (set #ask_db "Vilka exempel-databaser vill Du installera?")
  801.  
  802. (set #help_db (cat "\n"
  803.     " Med AlbIn_MUI följer ett antal exempel-databaser \n"
  804.     " från andra användare. Du vill kanske installera  \n"
  805.     " på Din hårddisk för att titta på dem, och kanske \n"
  806.     " importera album från dessa databaser till din    \n"
  807.     " egen databas; det kan bespara Dig från en massa  \n"
  808.     " inskrivning. Har Du tillräckligt med utrymme,    \n"
  809.     " installera allihop.                              \n"
  810. ))
  811.  
  812. (set #ask_lyric "Vilka sångtexter vill Du installera?")
  813.  
  814. (set #help_lyric (cat "\n"
  815.     " Några av exempel-databaserna - som de från Niklas\n"
  816.     " och David - använder sig av externa sångtexter.  \n"
  817.     " Om Du vill kunna titta på dessa texter måste Du  \n"
  818.     " installera dem.                                  \n"
  819. ))
  820.  
  821. (set #ask_cover "Vilka omslagsbilder vill Du installera?")
  822.  
  823. (set #help_cover (cat "\n"
  824.     " Några av exempel-databaserna - som de från Niklas \n"
  825.     " och David - använder sig av externa omslagsbilder.\n"
  826.     " Om Du vill kunna titta på dessa bilder måste Du   \n"
  827.     " installera dem också.                             \n"
  828. ))
  829.  
  830. (set #ask_export "Vilka exportfiler vill Du installera?")
  831.  
  832. (set #help_export (cat "\n"
  833.     " Om Du vill, kan Du installera ett exempel av en \n"
  834.     " exporterad fil. Du behöver egentligen inte denna\n"
  835.     " filen, och om Du vill ha den senare kan Du      \n"
  836.     " exportera den från programmet med hjälp av      \n"
  837.     " exportfunktionen. Notera att måste ha MultiView \n"
  838.     " eller AmigaGuide för att titta på den export-   \n"
  839.     " erade filen.                                    \n"
  840. ))
  841.  
  842. (set #ask_locl "Vilka språk vill Du installera?\n")
  843.  
  844. (set #help_locl (cat "\n"
  845.     " Detta gör det möjligt för Dig att installera de   \n"
  846.     " 'catalog'-filerna som krävs för att köra AlbIn-MUI\n"
  847.     " på det språk som Du har ställt in i 'Locale'-     \n"
  848.     " inställningarna (OS2.1 eller högre krävs).        \n"
  849. ))
  850.  
  851. (set #complete "Installationen är nu klar!\n")
  852.  
  853. ))
  854.  
  855. ; *****************************
  856. ; *** Now let's get started ***
  857. ; *****************************
  858.  
  859. ; *** Ensure at least AmigaDOS v2 ***
  860. (if
  861.     (NOT (>= (/ (getversion) 65536) 37))
  862.     (abort #badkick)
  863. )
  864.  
  865.  
  866. ; *** Check for LOCALE (Workbench 2.1) ***
  867. (set locflag 0)
  868. (if
  869.     (>= (/ (getversion) 65536) 38)
  870.     (set locflag 1)
  871. )
  872.  
  873. (complete 0)
  874.  
  875. (message #introduction)
  876.  
  877. (set AIMsrc "")
  878. (set @default-dest "WORK:")
  879.  
  880. ; set default language selection (catalogs) to 'none'
  881. (set catalogs 0)
  882.  
  883. (set instmode (askchoice
  884.     (prompt #in_msg)
  885.     (help   #in_help)
  886.  
  887.     (default 0)
  888.  
  889.     (choices
  890.         #all
  891.         #custom
  892.     )
  893. ))
  894.  
  895. ;******************
  896. ;** PREPARATIONS **
  897. ;******************
  898.  
  899. ;SET TIMES TO INSTALL FILES, BASED ON FILE SIZE
  900. (set TIME 25)
  901. (set DONE 2500)
  902.  
  903. (set AIMdest
  904.     (askdir
  905.         (prompt #in_dest)
  906.         (help #dest_help)
  907.         (default @default-dest)
  908.     )
  909. )
  910.  
  911. (if
  912.     (NOT (OR (= instmode 0) (= instmode 1)))
  913.     (abort #opt_unknown)
  914. )
  915.  
  916. (set lhex (tackon AIMsrc "lha"))
  917. ; TO DO: copy LhA to RAM: if possible
  918.  
  919. ; Temporary directories and assign
  920. (set Instmain (tackon Instpath "AIMInst"))
  921.  
  922. (makedir Instmain (safe))
  923. (makedir (tackon Instmain "PG") (safe))
  924. (makeassign "AIMInst" Instmain (safe))
  925. (set Icondir (tackon Instmain "Icons"))
  926. (makedir Icondir (safe))
  927. (set Instdir (tackon Instmain "PG"))
  928.  
  929. (onerror
  930.   (
  931.     ;(makeassign "AIMInst" (safe))
  932.     (run (cat "delete >NIL: "Instmain" all force quiet"))
  933.   )
  934. )
  935.  
  936. ; ***************************
  937. ; *** Custom Installation ***
  938. ; ***************************
  939.  
  940. (set PGMflag 0)
  941. (set ICNflag 1)
  942. (set DOCflag 2)
  943. (set DB1flag 3)
  944.  
  945. (if (= instmode 1)
  946.     (set instopts
  947.     (askoptions
  948.             (prompt #cust1)
  949.             (choices #custmain #custicon #custdoc #custdb)
  950.             (default 15)
  951.             (help (cat #cust_hlp))
  952.         )
  953.     )
  954. )
  955.  
  956. (if
  957.     (AND (= instopts 0) (= instmode 1))
  958.     (abort #bad_nothing)
  959. )
  960.  
  961. (if (= instmode 1)
  962.   (
  963.     (if (IN instopts PGMflag) (set time (+ time 225)))
  964.     (if (IN instopts ICNflag) (set time (+ time 25)))
  965.     (if (IN instopts DOCflag) (set time (+ time 50)))
  966.     (if (IN instopts DB1flag) (set time (+ time 575)))
  967.   )
  968.   (set time 900)
  969. )
  970. (set progress (/ DONE TIME))
  971. (complete progress)
  972.  
  973. (if (NOT (exists (tackon AIMdest "AlbIn_MUI")))
  974.   (makedir (tackon AIMdest "AlbIn_MUI") (infos))
  975.   (
  976.     (if (= (exists (tackon AIMdest "AlbIn_MUI")) 1)
  977.       (abort #bad_path)
  978.     )
  979.   )
  980. )
  981.  
  982. (set AIMdest (tackon AIMdest "AlbIn_MUI"))
  983. (set @default-dest AIMdest)
  984.  
  985. ; **********************************
  986. ; *** Select (and install) Icons ***
  987. ; **********************************
  988.  
  989. (set STDflag 0)
  990. (set MWBflag 1)
  991.  
  992. (set iconopts
  993.     (askchoice
  994.         (prompt #ask_icons)
  995.         (choices #normal_icons #mwb_icons)
  996.         (default 0)
  997.         (help #icon_hlp)
  998.     )
  999. )
  1000.  
  1001. (set lhafile (tackon AIMsrc "Icons.lha"))
  1002. (working #arc_icon)
  1003. (run lhex" >NIL: <NIL: -m -x x "lhafile" AIMInst:PG/")
  1004.  
  1005.  
  1006. ; original: (run lhex" >NIL: <NIL: -qfw=AIMInst:PG/ x "lhafile)
  1007. ; setup an install directory from where the icons for all the program
  1008. ; files will be added
  1009.  
  1010. (if (= iconopts 1)
  1011.     (copyfiles (source (tackon Instdir "Magic")) (dest Icondir)
  1012.     (all) (infos) (optional nofail force))
  1013.     (copyfiles (source (tackon Instdir "Normal")) (dest Icondir)
  1014.     (all) (infos) (optional nofail force))
  1015. )
  1016.  
  1017. ; TO DO: install only .AlbIn_MUI.info, .Txt.info and .Guide.info
  1018. ;     other icons are only relevant during installation!
  1019.  
  1020. (if (OR (= instmode 0) (AND (= instmode 1) (IN instopts ICNflag)))
  1021.   (
  1022.     (if (NOT (exists (tackon AIMdest "Icons")))
  1023.       (makedir (tackon AIMdest "Icons") (infos))
  1024.     )
  1025.     (copyfiles (source Icondir) (dest (tackon AIMdest "Icons"))
  1026.     (all) (infos) (optional nofail force))
  1027.     (copyfiles (source (tackon Instdir "ReadMe.Txt")) (dest Icondir)
  1028.     (files) (optional nofail force))
  1029.     (copyfiles (source (tackon Icondir ".Txt.info")) (dest Icondir)
  1030.     (newname "ReadMe.Txt.info") (infos) (optional nofail force))
  1031.   )
  1032. )
  1033.  
  1034. (run "delete >NIL: AIMInst:PG/#? all force quiet")
  1035.  
  1036. (set DONE (+ DONE 2500))
  1037. (set progress (/ DONE TIME))
  1038. (complete progress)
  1039.  
  1040. ; ***********************************************************
  1041. ; *** Install main program files and AmigaGuide help file ***
  1042. ; ***********************************************************
  1043.  
  1044. (set dbdest 0)
  1045.  
  1046. (if (OR (= instmode 0) (AND (= instmode 1) (IN instopts PGMflag)))
  1047.   (
  1048.     (set lhafile (tackon AIMsrc "Main.lha"))
  1049.     (working #arc_main)
  1050.     (run lhex" >NIL: <NIL: -m -x x "lhafile" AIMInst:PG/")
  1051.  
  1052.     (if (= instmode 1)
  1053.       (set dbdest
  1054.     (copyfiles
  1055.         (prompt #ask_pgm)
  1056.         (source Instdir) (dest AIMdest)
  1057.         (all)
  1058.         (help #help_pgm)
  1059.         (confirm)
  1060.         )
  1061.       )
  1062.       (
  1063.     (set dbdest
  1064.       (copyfiles (source Instdir) (dest AIMdest)
  1065.         (all) (optional nofail force))
  1066.     )
  1067.       )
  1068.     )
  1069.     (run "delete >NIL: AIMInst:PG/#? all force quiet")
  1070.  
  1071.     (if (NOT (= dbdest 0))
  1072.       (
  1073.     (if (= (exists (tackon dbdest "AlbIn_MUI") (noreq)) 1)
  1074.         (copyfiles (source (tackon Icondir "Main.info")) (dest dbdest)
  1075.         (infos) (files) (newname "AlbIn_MUI.info")
  1076.         (optional nofail force))
  1077.     )
  1078.     (if (NOT (= Main_0x0 0))
  1079.       (if (exists (tackon dbdest Main_0x0) (noreq))
  1080.         (copyfiles (source (tackon Icondir "Main.info")) (dest dbdest)
  1081.         (infos) (files) (newname (cat Main_0x0 ".info"))
  1082.         (optional nofail force))
  1083.       )
  1084.     )
  1085.     (if (exists (tackon dbdest "AlbIn_MUI.guide") (noreq))
  1086.         (copyfiles (source (tackon Icondir ".Guide.info")) (dest dbdest)
  1087.         (infos) (files) (newname "AlbIn_MUI.guide.info")
  1088.         (optional nofail force))
  1089.     )
  1090.       )
  1091.     )
  1092.   )
  1093. )
  1094.  
  1095. (set DONE (+ DONE 22500))
  1096. (set progress (/ DONE TIME))
  1097. (complete progress)
  1098.  
  1099. ; *******************************
  1100. ; *** Install additional docs ***
  1101. ; *******************************
  1102.  
  1103. (set dbdest 0)
  1104.  
  1105. (if (OR (= instmode 0) (AND (= instmode 1) (IN instopts DOCflag)))
  1106.   (
  1107.     (set lhafile (tackon AIMsrc "Docs.lha"))
  1108.     (working #arc_docs)
  1109.     (run lhex" >NIL: <NIL: -m -x x "lhafile" AIMInst:PG/")
  1110.     (if (NOT (exists (tackon AIMdest "Docs")))
  1111.       (makedir (tackon AIMdest "Docs") (infos))
  1112.     )
  1113.  
  1114.     (if (= instmode 1)
  1115.       (
  1116.     (set dbdest
  1117.       (copyfiles
  1118.         (prompt #ask_doc)
  1119.         (source Instdir) (dest (tackon AIMdest "Docs"))
  1120.         (all)
  1121.         (help #help_doc)
  1122.         (confirm)
  1123.           )
  1124.     )
  1125.       )
  1126.       (
  1127.     (set dbdest
  1128.       (copyfiles (source Instdir) (dest (tackon AIMdest "Docs"))
  1129.         (all) (optional nofail force))
  1130.     )
  1131.  
  1132.     (copyfiles (source (tackon Icondir ".Txt.info")) (dest (tackon AIMdest "Docs"))
  1133.         (infos) (files) (newname "AlbIn_MUI.History.info") (optional nofail force))
  1134.         
  1135.     (copyfiles (source (tackon Icondir ".Txt.info")) (dest (tackon AIMdest "Docs"))
  1136.         (infos) (files) (newname "ReadMe_MUI.info") (optional nofail force))
  1137.         
  1138.     (copyfiles (source (tackon Icondir ".Txt.info")) (dest (tackon AIMdest "Docs"))
  1139.         (infos) (files) (newname "Installer.Legal.info") (optional nofail force))
  1140.         
  1141.     (copyfiles (source (tackon Icondir ".DVI.info")) (dest (tackon AIMdest "Docs"))
  1142.         (infos) (files) (newname "AlbIn_MUI.dvi.info") (optional nofail force))
  1143.       )
  1144.     )
  1145.     (run "delete >NIL: AIMInst:PG/#? all force quiet")
  1146.   )
  1147. )
  1148.  
  1149. (set DONE (+ DONE 5000))
  1150. (set progress (/ DONE TIME))
  1151. (complete progress)
  1152.  
  1153. ; *********************************
  1154. ; *** Install example databases ***
  1155. ; *********************************
  1156.  
  1157. (set dbdest 0)
  1158.  
  1159. (if (OR (= instmode 0) (AND (= instmode 1) (IN instopts DB1flag)))
  1160.   (
  1161.     (set lhafile (tackon AIMsrc "DB1.lha"))
  1162.     (working #arc_db1)
  1163.     (run lhex" >NIL: <NIL: -m -x x "lhafile" AIMInst:PG/")
  1164.  
  1165.     (if (NOT (exists (tackon AIMdest "Databases")))
  1166.       (makedir (tackon AIMdest "Databases") (infos))
  1167.     )
  1168.     (set dbicon (tackon IconDir ".AlbIn_MUI.info"))
  1169.  
  1170.     (if (= instmode 1)
  1171.       (set dbdest
  1172.     (copyfiles
  1173.         (prompt #ask_db)
  1174.         (source Instdir) (dest (tackon AIMdest "Databases"))
  1175.         (all)
  1176.         (help #help_db)
  1177.         (infos)
  1178.         (confirm)
  1179.         )
  1180.       )
  1181.       (
  1182.     (set dbdest
  1183.       (copyfiles (source Instdir) (dest (tackon AIMdest "Databases"))
  1184.         (all) (infos) (optional nofail force))
  1185.     )
  1186.       )
  1187.     )
  1188.     (run "delete >NIL: AIMInst:PG/#? all force quiet")
  1189.   )
  1190. )
  1191.  
  1192. ; *** Add the icons for the installed example databases ***
  1193.  
  1194. (if (NOT (= dbdest 0))
  1195.   (if (= instmode 1)
  1196.     (
  1197.     (if (exists (tackon dbdest "Media_1.AlbIn_MUI") (noreq))
  1198.         (copyfiles (source dbicon) (dest dbdest)
  1199.         (infos) (files) (newname "Media_1.AlbIn_MUI.info")
  1200.         (optional nofail force))
  1201.     )
  1202.     (if (exists (tackon dbdest "Media_2.AlbIn_MUI") (noreq))
  1203.         (copyfiles (source dbicon) (dest dbdest)
  1204.         (infos) (files) (newname "Media_2.AlbIn_MUI.info")
  1205.         (optional nofail force))
  1206.     )
  1207.     (if (exists (tackon dbdest "Media_3.AlbIn_MUI") (noreq))
  1208.         (copyfiles (source dbicon) (dest dbdest)
  1209.         (infos) (files) (newname "Media_3.AlbIn_MUI.info")
  1210.         (optional nofail force))
  1211.     )
  1212.     (if (exists (tackon dbdest "Media_4.AlbIn_MUI") (noreq))
  1213.         (copyfiles (source dbicon) (dest dbdest)
  1214.         (infos) (files) (newname "Media_4.AlbIn_MUI.info")
  1215.         (optional nofail force))
  1216.     )
  1217.     (if (exists (tackon dbdest "Media_5.AlbIn_MUI") (noreq))
  1218.         (copyfiles (source dbicon) (dest dbdest)
  1219.         (infos) (files) (newname "Media_5.AlbIn_MUI.info")
  1220.         (optional nofail force))
  1221.     )
  1222.     (if (exists (tackon dbdest "Media_6.AlbIn_MUI") (noreq))
  1223.         (copyfiles (source dbicon) (dest dbdest)
  1224.         (infos) (files) (newname "Media_6.AlbIn_MUI.info")
  1225.         (optional nofail force))
  1226.     )
  1227.     (if (exists (tackon dbdest "Media_7.AlbIn_MUI") (noreq))
  1228.         (copyfiles (source dbicon) (dest dbdest)
  1229.         (infos) (files) (newname "Media_7.AlbIn_MUI.info")
  1230.         (optional nofail force))
  1231.     )
  1232.     )
  1233.     (
  1234.     (copyfiles (source dbicon) (dest dbdest)
  1235.         (infos) (files) (newname "Media_1.AlbIn_MUI.info")
  1236.         (optional nofail force))
  1237.     (copyfiles (source dbicon) (dest dbdest)
  1238.         (infos) (files) (newname "Media_2.AlbIn_MUI.info")
  1239.         (optional nofail force))
  1240.     (copyfiles (source dbicon) (dest dbdest)
  1241.         (infos) (files) (newname "Media_3.AlbIn_MUI.info")
  1242.         (optional nofail force))
  1243.     (copyfiles (source dbicon) (dest dbdest)
  1244.         (infos) (files) (newname "Media_4.AlbIn_MUI.info")
  1245.         (optional nofail force))
  1246.     (copyfiles (source dbicon) (dest dbdest)
  1247.         (infos) (files) (newname "Media_5.AlbIn_MUI.info")
  1248.         (optional nofail force))
  1249.     (copyfiles (source dbicon) (dest dbdest)
  1250.         (infos) (files) (newname "Media_6.AlbIn_MUI.info")
  1251.         (optional nofail force))
  1252.     (copyfiles (source dbicon) (dest dbdest)
  1253.         (infos) (files) (newname "Media_7.AlbIn_MUI.info")
  1254.         (optional nofail force))
  1255.      )
  1256.   )
  1257. )
  1258.  
  1259. (set DONE (+ DONE 32500))
  1260. (set progress (/ DONE TIME))
  1261. (complete progress)
  1262.  
  1263. ; *** Install Lyrics, cover pictures and exported guide files ***
  1264.  
  1265. (if (OR (= instmode 0) (AND (= instmode 1) (IN instopts DB1flag)))
  1266.   (
  1267.     (set lhafile (tackon AIMsrc "DB2.lha"))
  1268.     (working #arc_db2)
  1269.     (run lhex" >NIL: <NIL: -m -x x "lhafile" AIMInst:PG/")
  1270.  
  1271.     (if (NOT (exists (tackon AIMdest "Lyrics")))
  1272.       (makedir (tackon AIMdest "Lyrics"))
  1273.     )
  1274.     (if (NOT (exists (tackon AIMdest "Covers")))
  1275.       (makedir (tackon AIMdest "Covers"))
  1276.     )
  1277.     (if (NOT (exists (tackon AIMdest "Exports")))
  1278.       (makedir (tackon AIMdest "Exports") (infos))
  1279.     )
  1280.     (set dbdest 0)
  1281.  
  1282.     (if (= instmode 1)
  1283.       (
  1284.     (copyfiles
  1285.         (prompt #ask_lyric)
  1286.         (source (tackon Instdir "Lyrics")) (dest (tackon AIMdest "Lyrics"))
  1287.         (all)
  1288.         (help #help_lyric)
  1289.         (confirm)
  1290.         )
  1291.     (copyfiles
  1292.         (prompt #ask_cover)
  1293.         (source (tackon Instdir "Covers"))
  1294.         (dest (tackon AIMdest "Covers"))
  1295.         (all)
  1296.         (help #help_cover)
  1297.         (confirm)
  1298.         )
  1299.     (set dbdest
  1300.       (copyfiles
  1301.         (prompt #ask_export)
  1302.         (source (tackon Instdir "Exports"))
  1303.         (dest (tackon AIMdest "Exports"))
  1304.         (all)
  1305.         (help #help_export)
  1306.         (confirm)
  1307.           )
  1308.     )
  1309.         (if (NOT (= dbdest 0))
  1310.         (if (exists (tackon dbdest "Niklas_Skivor.guide") (noreq))
  1311.           (copyfiles (source (tackon IconDir ".guide.info")) (dest dbdest)
  1312.           (infos) (files) (newname "Niklas_Skivor.guide.info")
  1313.           (optional nofail force))
  1314.         )
  1315.     )
  1316.       )
  1317.       (
  1318.     (copyfiles (source Instdir) (dest AIMdest)
  1319.         (all) (optional nofail force))
  1320.     (copyfiles (source (tackon IconDir ".guide.info"))
  1321.         (dest (tackon AIMdest "Exports"))
  1322.         (newname "Niklas_Skivor.guide.info")
  1323.         (infos) (files) (optional nofail force))
  1324.       )
  1325.     )
  1326.     (run "delete >NIL: AIMInst:PG/#? all force quiet")
  1327.   )
  1328. )
  1329.  
  1330. (set DONE (+ DONE 25000))
  1331. (set progress (/ DONE TIME))
  1332. (complete progress)
  1333.  
  1334. (copyfiles (source (tackon AIMsrc "ReadMe")) (dest AIMdest)
  1335.     (files) (optional nofail force))
  1336. (copyfiles (source (tackon Icondir ".Txt.info")) (dest AIMdest)
  1337.     (newname "ReadMe.info") (infos) (files) (optional nofail force))
  1338.  
  1339. ;************
  1340. ;* CLEAN UP *
  1341. ;************
  1342.  
  1343. ;REMOVE THE TEMPORARY ASSIGN
  1344. (makeassign "AIMInst" (safe))
  1345.  
  1346. ;REMOVE THE TEMPORARY DIRECTORY
  1347. (run (cat "delete >NIL: "Instmain" all force quiet"))
  1348.  
  1349. ;DONE WITH THE INSTALL
  1350. (complete 100)
  1351.  
  1352. ;DISPLAY README (try 4 different ways!)
  1353. (IF (> (run "Sys:Utilities/MultiView ReadMe") 0)
  1354.     (IF (> (run "Sys:Utilities/AmigaGuide ReadMe") 0)
  1355.         (IF (> (run "More ReadMe") 0)
  1356.             (run "PPMore ReadMe")
  1357.         )
  1358.     )
  1359. )
  1360.